home *** CD-ROM | disk | FTP | other *** search
/ Max Calendar 2002 / Max Calendar 2002.iso / pc / Data / intro.dxr / 00002_controllo menù.ls < prev    next >
Encoding:
Text File  |  2001-10-17  |  2.0 KB  |  70 lines
  1. global gMousePos, gUltima
  2.  
  3. on exitFrame me
  4.   sprite(15).constraint = 2
  5.   ImpostaCursori()
  6.   channel = rollover()
  7.   repeat with canale = 17 to 23
  8.     if channel = canale then
  9.       if the puppet of sprite canale = 0 then
  10.         puppetSprite(canale, 1)
  11.         Temp = the number of member (the name of member the memberNum of sprite canale & "_ACC")
  12.         if Temp > 0 then
  13.           set the memberNum of sprite canale to Temp
  14.         end if
  15.       end if
  16.       next repeat
  17.     end if
  18.     puppetSprite(canale, 0)
  19.   end repeat
  20.   repeat with canale = 26 to 29
  21.     if channel = canale then
  22.       if the puppet of sprite canale = 0 then
  23.         puppetSprite(canale, 1)
  24.         Temp = the number of member (the name of member the memberNum of sprite canale & "_ACC")
  25.         if Temp > 0 then
  26.           set the memberNum of sprite canale to Temp
  27.         end if
  28.       end if
  29.       next repeat
  30.     end if
  31.     puppetSprite(canale, 0)
  32.   end repeat
  33.   if member(the member of sprite 16).name <> "Segnaposto" then
  34.     repeat with i = 21 to 23
  35.       sprite(i).visible = 1
  36.     end repeat
  37.   end if
  38.   repeat with i = 3 to 14
  39.     if rollover(i) then
  40.       gQuadPos = the locH of sprite 15
  41.       if gMousePos < gQuadPos then
  42.         repeat while gMousePos <= gQuadPos
  43.           if the mouseDown then
  44.             exit repeat
  45.           end if
  46.           set the locH of sprite 15 to the locH of sprite 15 - 1
  47.           if the locH of sprite 15 <= gMousePos then
  48.             set the locH of sprite 15 to gMousePos
  49.             exit repeat
  50.           end if
  51.           updateStage()
  52.         end repeat
  53.         next repeat
  54.       end if
  55.       repeat while gMousePos >= gQuadPos
  56.         if the mouseDown then
  57.           exit repeat
  58.         end if
  59.         set the locH of sprite 15 to the locH of sprite 15 + 1
  60.         if the locH of sprite 15 >= gMousePos then
  61.           set the locH of sprite 15 to gMousePos
  62.           exit repeat
  63.         end if
  64.         updateStage()
  65.       end repeat
  66.     end if
  67.   end repeat
  68.   go(the frame)
  69. end
  70.